-- stack: in
-- format: 8 (HyperCard 1)
-- flags: 0x0 (none)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=0, y1=0, x2=0, y2=0)
-- screen: Rect(x1=0, y1=0, x2=0, y2=0)
-- card dimensions: w=0 h=0
-- scroll: x=0 y=0
-- background count: 15
-- first background id: 2571
-- card count: 37
-- first card id: 23059
-- list block id: 3820
-- print block id: 3578
-- font table block id: 0
-- style table block id: 0
-- free block count: 0
-- free size: 0 bytes
-- total size: 160672 bytes
-- stack block size: 4096 bytes
-- created by hypercard version: 0x00000000
-- compacted by hypercard version: 0x00000000
-- modified by hypercard version: 0x00000000
-- opened by hypercard version: 0x00000000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x0000220000002200
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0xCC003300CC003300
-- patterns[4]: 0xCC883322CC883322
-- patterns[5]: 0xFF00FF00FF00FF00
-- patterns[6]: 0xEECCBB33EECCBB33
-- patterns[7]: 0xFFCCFF33FFCCFF33
-- patterns[8]: 0xFFEEFFBBFFEEFFBB
-- patterns[9]: 0xFFFFFFBBFFFFFFBB
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x5555555555555555
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x0
----- HyperTalk script -----
on openStack
  global identification, birthdate, sex
  hide message box
  hide menubar
  go to card identification
  if the result is not empty then
    answer "Do you want a new card" with "Yes" or "No"
    if it is "Yes" then
      if identification is not empty then
        doMenu New Card
        set name of this card to identification
        put word 1 of identification && word 2 of identification into field "name"
        put last word of identification into field "hospital number"
        put birthdate into field "birth date"
        put sex into field "sex"
      else
        go to stack "Patient names"
      end if
    end if
  end if
end openStack

function maxLine what
put 0 into result
repeat with i = 1 to the number of lines in what
  put max(line i of what, result) into result
end repeat
return result
end maxLine

on clearScreen
  choose select tool
  doMenu select all
  doMenu clear picture
end clearScreen

on drawPlot left,bottom

  drag from left,bottom to left+2,bottom-2

end drawPlot

function interpolate x,tx,bx,ty,by
put ((x-bx)/(tx-bx)*(ty-by)+by) into what
return what
end interpolate

function sexbonemat sexes,boneage,age
if sexes is "m" then
  put "boy" into skelmat
else
  put "girl" into skelmat
end if
if boneage < (age-1) then
  put "ret " before skelmat
else if boneage > (age+1) then
  put "acc " before skelmat
else
  put "ave " before skelmat
end if
return skelmat
end sexbonemat

on valuesearch table, searchfield, searchvar
  global number, check
  put the number of lines of field searchfield in card table into total
  put line 1 of field searchfield in card table into botpoint
  put line total of field searchfield in card table into toppoint
  put "false" into check
  if searchvar >= botpoint and searchvar <= toppoint then
    put "true" into check
  end if
  set the cursor to 4

  repeat with i = 1 to total
    get line i of field searchfield in card table
    put i into number
    if searchvar <= it then
      exit repeat
    end if
  end repeat


end valuesearch